home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / info-service / gopher / Rice_CMS / gopher24 / gopclitx.$rexx < prev    next >
Encoding:
Text File  |  1993-01-25  |  4.4 KB  |  57 lines
  1. /*                                                                      00010000
  2.  *        Name: GOPCLITX REXX                                           00020000
  3.  *              VM TCP/IP Network GOPHER Client plain-text processor    00030000
  4.  *      Author: Rick Troth, Rice University, Information Systems        00040000
  5.  *        Date: 1992-Dec-23                                             00050000
  6.  *                                                                      00060000
  7.  *       Input: raw ASCII text                                          00070000
  8.  *      Output: plain (EBCDIC) text                                     00080000
  9.  */                                                                     00090000
  10.                                                                         00100000
  11. /*                                                                      00110000
  12.  *      Copyright 1992 Richard M. Troth.   This software was developed  00120000
  13.  *      with resources provided by Rice University and is intended      00130000
  14.  *      to serve Rice's user community.   Rice has benefitted greatly   00140000
  15.  *      from the free distribution of software,  therefore distribution 00150000
  16.  *      of unmodified copies of this material is not restricted.        00160000
  17.  *      You may change your own copy as needed.   Neither Rice          00170000
  18.  *      University nor any of its employees or students shall be held   00180000
  19.  *      liable for damages resulting from the use of this software.     00190000
  20.  */                                                                     00200000
  21.                                                                         00210000
  22. /*  Trace "OFF"  */                                                     00220000
  23.                                                                         00230000
  24. /*  sync with input so that 'CALLPIPE COMMAND' will work  */            00240000
  25. 'PEEKTO'                                                                00250000
  26.                                                                         00260000
  27. 'CALLPIPE COMMAND GLOBALV SELECT GOPHER GET GOPHER'                     00270000
  28. If gopher = "" Then gopher = "Gopher"                                   00280000
  29.                                                                         00290000
  30. 'ADDPIPE *: | DEBLOCK LINEND 0A | DROP LAST 1' ,                        00300000
  31.         '| CHANGE' '000D002000'x '| TCPA2E' gopher '| *.INPUT:'         00310000
  32.                                                                         00320000
  33. /*                                                                      00330000
  34.  *        Name: DROPDOTS REXX                                           00340000
  35.  *              drop trailing lines consisting of only "."              00350000
  36.  *              (typically used for end-of-file indication)             00360000
  37.  *        Date: 1992-Apr-18, 20                                         00370000
  38.  */                                                                     00380000
  39.                                                                         00390000
  40. dots = 0                                                                00400000
  41. 'READTO LINE'                                                           00410000
  42. Do While rc = 0                                                         00420000
  43.     If Left(line,1) = "." Then Do                                       00430000
  44.         dots = dots + 1                                                 00440000
  45.         line.dots = line                                                00450000
  46.         End  /*  If  ..  Do  */                                         00460000
  47.     Else Do                                                             00470000
  48.         Do i = 1 to dots;  'OUTPUT' line.i;  End                        00480000
  49.         dots = 0                                                        00490000
  50.         'OUTPUT' line                                                   00500000
  51.         End  /*  Else  Do  */                                           00510000
  52.     'READTO LINE'                                                       00520000
  53.     End  /*  Do  While  */                                              00530000
  54.                                                                         00540000
  55. Exit                                                                    00550000
  56.                                                                         00560000
  57.